r = 1

gotradio = 0
gotbook = 0
gotphoto = 0
steven = 1
gotgun = 0

SCREEN 12
COLOR 2, 0
CLS

DIM SHARED DOOM AS DOUBLE
Minutes = 30
Seconds = 0
GameTime = Minutes * 60 + Seconds

DIM directions(1 TO 34) AS STRING
directions(1) = "EAST"
directions(2) = "EAST OR WEST"
directions(3) = "NORTH OR WEST"
directions(4) = "NORTH, SOUTH, OR EAST"
directions(5) = "WEST OR EAST"
directions(6) = "EAST OR WEST"
directions(7) = "WEST"
directions(8) = "NORTH OR SOUTH"
directions(9) = "EAST, WEST, OR SOUTH"
directions(10) = "EAST"
directions(11) = "EAST OR WEST"
directions(12) = "EAST OR WEST"
directions(13) = "NORTH OR WEST"
directions(14) = "NORTH, SOUTH, OR EAST"
directions(15) = "SOUTH"
directions(16) = "EAST OR WEST"
directions(17) = "WEST OR SOUTH"
directions(18) = "NORTH OR EAST"
directions(19) = "EAST OR WEST"
directions(20) = "NORTH, EAST, OR WEST"
directions(21) = "WEST"
directions(22) = "NORTH OR SOUTH"
directions(23) = "NORTH OR SOUTH"
directions(24) = "NORTH OR SOUTH"
directions(25) = "NORTH OR SOUTH"
directions(26) = "SOUTH OR WEST"
directions(27) = "EAST OR WEST"
directions(28) = "EAST, WEST, OR SOUTH"
directions(29) = "NORTH OR SOUTH"
directions(30) = "NORTH"
directions(31) = "EAST OR WEST"
directions(32) = "NORTH OR EAST"
directions(33) = "NORTH OR SOUTH"
directions(34) = "SOUTH"

PRINT ""
PRINT ""
PRINT "You awaken from a sleep that has felt like an eternity. A world in the icy  "
PRINT "grip of a cold winter and while you were suppose to leave with the others. A"
PRINT "small problem that needed your attention kept you away. Now you are trapped"
PRINT "within the confines of a small research centre in the middle of the Yukon"
PRINT "tundra. Waiting, waiting for the storm to pass over and return home, will you"
PRINT "survive, or allow the isolation to win?"

DO: LOOP UNTIL INKEY$ <> ""
DOOM = TIMER(0.001) + GameTime

DO
    CLS
    PRINT
    PRINT
    PRINT "                             Ice Station Alpha"
    PRINT "                           Written By D.B. Taylor                                               "
    PRINT "                             Copyright (c) 2015                                          "
    PRINT "                                                        "
    PRINT "             _"
    PRINT "            (_)"
    PRINT "                                      |\        |\     |\"
    PRINT "       .-'''''-.                      |'>       |'>    |'>"
    PRINT "     .'_ / _ \ _'.____                | \ |\    | \ |\ | \ /\"
    PRINT "    / _/ _ | _ \_ \ _.'.              ||(\|/    ||(\\/ ||(\|/"
    PRINT "  __/_/___/___\___\_\_|_|______________||||'_____||||'__||||'_______"
    PRINT ""
    PRINT SPACE$(38);
    IF INSTR(directions(r), "NORTH") THEN PRINT "N" ELSE PRINT
    PRINT "*---------------------------------* ";
    IF INSTR(directions(r), "WEST") THEN PRINT "W"; ELSE PRINT " ";
    PRINT " + ";
    IF INSTR(directions(r), "EAST") THEN PRINT "E"; ELSE PRINT " ";
    PRINT " *------------------------------------*"
    PRINT SPACE$(38);
    IF INSTR(directions(r), "SOUTH") THEN PRINT "S" ELSE PRINT
    PRINT
    PRINT "If you are stuck just type HELP."
    PRINT
    GOSUB ROOM
    GOSUB parser
LOOP

ROOM:
IF r = 1 THEN: GOSUB r1
IF r = 2 THEN: GOSUB r2
IF r = 3 THEN: GOSUB r3
IF r = 4 THEN: GOSUB r4
IF r = 5 THEN: GOSUB r5
IF r = 6 THEN: GOSUB r6
IF r = 7 THEN: GOSUB r7
IF r = 8 THEN: GOSUB r8
IF r = 9 THEN: GOSUB r9
IF r = 10 THEN: GOSUB r10
IF r = 11 THEN: GOSUB r11
IF r = 12 THEN: GOSUB r12
IF r = 13 THEN: GOSUB r13
IF r = 14 THEN: GOSUB r14
IF r = 15 THEN: GOSUB r15
IF r = 16 THEN: GOSUB r16
IF r = 17 THEN: GOSUB r17
IF r = 18 THEN: GOSUB r18
IF r = 19 THEN: GOSUB r19
IF r = 20 THEN: GOSUB r20
IF r = 21 THEN: GOSUB r21
IF r = 22 THEN: GOSUB r22
IF r = 23 THEN: GOSUB r23
IF r = 24 THEN: GOSUB r24
IF r = 25 THEN: GOSUB r25
IF r = 26 THEN: GOSUB r26
IF r = 27 THEN: GOSUB r27
IF r = 28 THEN: GOSUB r28
IF r = 29 THEN: GOSUB r29
IF r = 30 THEN: GOSUB r30
IF r = 31 THEN: GOSUB r31
IF r = 32 THEN: GOSUB r32
IF r = 33 THEN: GOSUB r33
IF r = 34 THEN: GOSUB r34
RETURN

parser:
PRINT "> ";
cmd$ = GrabInput
cmd$ = LTRIM$(RTRIM$(UCASE$(cmd$)))
IF cmd$ = "END" OR cmd$ = "QUIT" OR cmd$ = "EXIT" OR cmd$ = "Q" THEN
    END
END IF
IF cmd$ = "HELP" OR cmd$ = "H" OR cmd$ = "?" THEN
    CLS
    PRINT "HERE ARE SOME BASIC COMMANDS THAT CAN BE USED IN THE GAME..."
    PRINT
    PRINT "NORTH, EAST ,SOUTH, AND WEST - MOVE TO AN AVAILABLE LOCATION"
    PRINT "EXAMINE (OBJECT)             - EXAMINE AN OBJECT"
    PRINT "USE (OBJECT)                 - USE AN OBJECT"
    PRINT "TAKE (OBJECT)                - TAKE OR MOVE AN OBJECT"
    PRINT "INVENTORY                    - VIEW YOUR INVENTORY"
    PRINT "DRINK                        - DRINK BEER"
    PRINT "UNLOCK                       - UNLOCK DOOR"
    PRINT "HELP                         - VIEW THIS SCREEN"
    PRINT "END                          - END GAME"
    PRINT
    PRINT "PRESS ANY KEY...": SLEEP
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF cmd$ = "INVENTORY" OR cmd$ = "INV" OR cmd$ = "ITEMS" OR cmd$ = "I" THEN
    CLS
    PRINT "INVENTORY..."
    PRINT
    IF gotradio = 1 THEN: PRINT "A small handheld radio."
    IF gotphoto = 1 THEN: PRINT "A photo of your family"
    IF gotbook = 1 THEN: PRINT "A paperback horror novel."
    IF gotgun = 1 THEN: PRINT "A .38 Special."
    PRINT
    PRINT "PRESS ANY KEY..."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF cmd$ = "GO NORTH" OR cmd$ = "NORTH" OR cmd$ = "N" THEN
    IF r = 3 THEN: r = 4: GOTO moved
    IF r = 4 THEN: r = 8: GOTO moved
    IF r = 8 THEN: r = 9: GOTO moved
    IF r = 13 THEN: r = 14: GOTO moved
    IF r = 14 THEN: r = 15: GOTO moved
    IF r = 18 THEN: r = 17: GOTO moved
    IF r = 20 THEN: r = 22: GOTO moved
    IF r = 22 THEN: r = 23: GOTO moved
    IF r = 23 THEN: r = 24: GOTO moved
    IF r = 24 THEN: r = 25: GOTO moved
    IF r = 25 THEN: r = 26: GOTO moved
    IF r = 30 THEN: r = 29: GOTO moved
    IF r = 29 THEN: r = 28: GOTO moved
    IF r = 32 THEN: r = 33: GOTO moved
    IF r = 33 THEN: r = 34: GOTO moved
END IF
IF cmd$ = "GO EAST" OR cmd$ = "EAST" OR cmd$ = "E" THEN
    IF r = 4 THEN: r = 5: GOTO moved
    IF r = 5 THEN: r = 6: GOTO moved
    IF r = 6 THEN: r = 7: GOTO moved
    IF r = 10 THEN: r = 9: GOTO moved
    IF r = 9 THEN: r = 11: GOTO moved
    IF r = 11 THEN: r = 12: GOTO moved
    IF r = 12 THEN: r = 13: GOTO moved
    IF r = 14 THEN: r = 16: GOTO moved
    IF r = 16 THEN: r = 17: GOTO moved
    IF r = 18 THEN: r = 19: GOTO moved
    IF r = 19 THEN: r = 20: GOTO moved
    IF r = 20 THEN: r = 21: GOTO moved
    IF r = 32 THEN: r = 31: GOTO moved
    IF r = 31 THEN: r = 28: GOTO moved
    IF r = 28 THEN: r = 27: GOTO moved
    IF r = 27 THEN: r = 26: GOTO moved
END IF
IF cmd$ = "GO SOUTH" OR cmd$ = "SOUTH" OR cmd$ = "S" THEN
    IF r = 34 THEN: r = 33: GOTO moved
    IF r = 33 THEN: r = 32: GOTO moved
    IF r = 28 THEN: r = 29: GOTO moved
    IF r = 29 THEN: r = 30: GOTO moved
    IF r = 26 THEN: r = 25: GOTO moved
    IF r = 25 THEN: r = 24: GOTO moved
    IF r = 24 THEN: r = 23: GOTO moved
    IF r = 23 THEN: r = 22: GOTO moved
    IF r = 22 THEN: r = 20: GOTO moved
    IF r = 17 THEN: r = 18: GOTO moved
    IF r = 15 THEN: r = 14: GOTO moved
    IF r = 14 THEN: r = 13: GOTO moved
    IF r = 9 THEN: r = 8: GOTO moved
    IF r = 8 THEN: r = 4: GOTO moved
    IF r = 4 THEN: r = 3: GOTO moved
END IF
IF cmd$ = "GO WEST" OR cmd$ = "WEST" OR cmd$ = "W" THEN
    IF r = 7 THEN: r = 6: GOTO moved
    IF r = 6 THEN: r = 5: GOTO moved
    IF r = 5 THEN: r = 4: GOTO moved
    IF r = 13 THEN: r = 12: GOTO moved
    IF r = 12 THEN: r = 11: GOTO moved
    IF r = 11 THEN: r = 9: GOTO moved
    IF r = 9 THEN: r = 10: GOTO moved
    IF r = 17 THEN: r = 16: GOTO moved
    IF r = 16 THEN: r = 14: GOTO moved
    IF r = 21 THEN: r = 20: GOTO moved
    IF r = 20 THEN: r = 19: GOTO moved
    IF r = 19 THEN: r = 18: GOTO moved
    IF r = 26 THEN: r = 27: GOTO moved
    IF r = 27 THEN: r = 28: GOTO moved
    IF r = 28 THEN: r = 31: GOTO moved
    IF r = 31 THEN: r = 32: GOTO moved
END IF

IF (cmd$ = "TALK TO STEVEN") AND r7 THEN
    CLS
    PRINT "Well how much longer do we have here? A day, a week, or a month?"
    PRINT "It's as if no one is coming back for you. That son of yours will"
    PRINT "never even know you existed."
    PRINT ""
    PRINT "-He laughs at you in a crazy fashion.-"
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "TALK TO STEVEN") AND r14 THEN
    CLS
    PRINT "Nothing is here but cold steel forged somewhere that no one cares"
    PRINT "about. Can you imagine having to spend eternity here? I know, I have."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "TALK TO STEVEN") AND r21 THEN
    CLS
    PRINT "Tick tock, tick tock, tick tock, the clocks ticking away and here"
    PRINT "we are..."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "TALK TO STEVEN") AND r26 THEN
    CLS
    PRINT "I know you have it with you, have you ever thought about just leaving"
    PRINT "this all behind. Hey, maybe we can be friend in the after life?"
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "TALK TO STEVEN") AND r30 THEN
    CLS
    PRINT "This warm shell of a prison, kept in a cold grasp of ice and snow."
    PRINT "Let's do something crazy? Let's go out with a bang, I'll hold your"
    PRINT "hand, it won't hurt, I swear it."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "TALK TO STEVEN") AND r34 THEN
    CLS
    PRINT "Ever wonder why I'm here? I'm here cause you can't handle this existence,"
    PRINT "I'm here to help you free yourself from the chains that keep you here."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE STEVEN") AND r7 THEN
    CLS
    PRINT "He stands before you laughing with a sickened look on his face. He seems"
    PRINT "to be wearing a red t-shirt and shorts. Almost as if he just came from"
    PRINT "the beach or something along those lines."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE STEVEN") AND r14 THEN
    CLS
    PRINT "He's smoking a pipe and holding a glass of sherry in the other."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE STEVEN") AND r21 THEN
    CLS
    PRINT "He's standong in front of the photo and seems to be admiring it."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE STEVEN") AND r26 THEN
    CLS
    PRINT "A grin is on his face and it quickly turns to rage. He seems angry?"
    PRINT "Maybe because you aren't doing what he wants?"
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE STEVEN") AND r30 THEN
    CLS
    PRINT "He's sitting on the desk, looking down to the book ,and then back"
    PRINT "up at you."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE STEVEN") AND r34 THEN
    CLS
    PRINT "He's stnading on the other side of the door. With a crazy look on his face."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE SINK") AND r6 THEN
    CLS
    PRINT "Just your standard stainless steel sink."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE TOILET") AND r6 THEN
    CLS
    PRINT "A stainless steel toilet. That looks like it'll be cold to the touch."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE MIRROR") AND r6 THEN
    CLS
    PRINT "A small mirror hangs off the wall."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "USE SINK") AND r6 THEN
    CLS
    PRINT "Nothing, not a drop of water."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "USE TOILET") AND r6 THEN
    CLS
    PRINT "You don't have to go right now."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "LOOK IN MIRROR") AND r6 THEN
    CLS
    PRINT "Your hair is messy, you look like you haven't bathed in weeks."
    PRINT "A hot showerw would be nice right about now."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE DOOR") AND r1 THEN
    CLS
    PRINT "A standard three inch thick door. Keeping me away from the material"
    PRINT "breach on the other side."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE DOOR") AND r34 THEN
    CLS
    PRINT "The steel door is covered in an inch of ice and frost. It seperates you from"
    PRINT "the outside frozen tundra."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "OPEN DOOR") AND r1 THEN
    CLS
    PRINT "Not when there was a material breach. Who knows what death await you."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "OPEN DOOR") AND r34 THEN
    CLS
    PRINT "Not a chance. I don't wish to freeze to death."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE BOXES") AND r10 THEN
    CLS
    PRINT "Just a few office boxes, piled on top of one another."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "OPEN BOXES") AND r10 THEN
    CLS
    PRINT "Nothing but papers talking about weather patterns from the past few months."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "USE RADIO") AND gotradio = 1 THEN
    CLS
    PRINT "You flip the stitch in the hopes of reaching someone. But all you hear is"
    PRINT "static."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE GUN") AND gotgun = 1 THEN
    CLS
    PRINT "A Saturday Night Special, it's cold to the touch, and it's loaded. Why would"
    PRINT "anyone need this here?"
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "USE GUN") AND gotgun = 1 THEN
    GOTO win
END IF
IF (cmd$ = "EXAMINE RADIO") AND gotradio = 1 THEN
    CLS
    PRINT "A small handheld radio. Maybe I'll be able to reach someone on this thing?"
    PRINT "But probably not, since no one's around for at least thirty miles or so."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE PHOTO") AND gotphoto = 1 THEN
    CLS
    PRINT "A photo of your son, a charming one year old. Your wife is holding him. Oh,"
    PRINT "how you miss them."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE BOOK") AND gotbook = 1 THEN
    CLS
    PRINT "A small paperback entitled -Nightmarish World- by some unknown author."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "READ BOOK") AND gotbook = 1 THEN
    CLS
    PRINT "-It was a cold and rainy night, while I was alone with my thought, and all"
    PRINT "I can muster up was the tired thought of what lurked in the darkness.-"
    PRINT "Nothing like a horror novel, when one's abandoned in the dark abyss, eh?"
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF


moved:
RETURN

r1:
PRINT "The wind outside is howling like a hungry beast just begging to be let"
PRINT "in. Your are standing at the entrance of a hallway leading to the living"
PRINT "quarters."
RETURN

r2:
PRINT "With every step you take, your footsteps echo through the vacant halls"
PRINT "of the building."
RETURN

r3:
PRINT "A cold chill lingers in the air. You wonder how much longer you'll have"
PRINT "to wait?"
RETURN

r4:
PRINT "The strange cheapyly put together corridors allows ones own mind to"
PRINT "run rampant with ideas...ideas of fear."
RETURN

r5:
PRINT "The faint echoing sounds of laughter fills the air around you."
RETURN

r6:
PRINT "This small hallway takes you a small bathroom, though the temperature"
PRINT "is somewhat warmer then the rest of the hall. Past the small airplane"
PRINT "sized bathroom lurks a closet of somekind."
RETURN

r7:
PRINT "While you enter the small unused closet, the sense of being watched"
PRINT "comes over you, and just as you stand admiring this sliver of unused"
PRINT "space. The voice of a man that who's voice did not match anyone I've"
PRINT "met before. Out of a small group of eight. Going by the name of Steven."
RETURN

r8:
PRINT "With every step I took, the temperature began to rise and fall. Almost"
PRINT "as if the computer system controlling the temperature was on the fritz"
PRINT "again."
RETURN

r9:
PRINT "How odd this place is at times. Once it's filled with people, you feel"
PRINT "like living in a small community, and once it's empty. The world around"
PRINT "you feels as if it's haunted."
RETURN

r10:
PRINT "You enter a small room within it is an item placed on top of a stack of"
PRINT "boxes."
IF gotgun = 0 THEN: PRINT "A glimmer of light gives off the position of a pistol."
IF gotgun = 1 THEN: PRINT "You tightly grip the handle and a chill comes over you."
RETURN

r11:
PRINT "As you wander down the hallway, you wonder to yourself just what lurks in"
PRINT "the darkness that lives in this hellish place."
RETURN

r12:
PRINT "The eerie feeling of death and decay lingers over you. Strange how before"
PRINT "this was never felt."
RETURN

r13:
PRINT "The voice of what can only be from the one known as Steven...he whispers to..."
PRINT "you...-It hurts...it feels so good...please let me in.- Just who the hell is"
PRINT "this man?"
RETURN

r14:
PRINT "Nothing, nothing but silence. An eerie feel overcomes you. -Why so glum?-"
PRINT "Steven asks."
RETURN

r15:
PRINT "You enter amll room, littered with junk, shelves covering the walls, and nothing"
PRINT "but junk lays around you."
IF gotradio = 0 THEN: PRINT "A small handheld radio. I can use this to cal for help!"
IF gotradio = 1 THEN: PRINT "You now have the small radio."
RETURN

r16:
PRINT "This mission...nothing but a joke. When will they comeback for me?"
RETURN

r17:
PRINT "This tiny hallways seem to go on forever. This realm seperated and crafted by man."
PRINT "Protecting me from the elements outside. Nothing to worry about though..."
RETURN

r18:
PRINT "In the distance you can see a small room, the door is swinging and the sound"
PRINT "of a grown man crying can be heard."
RETURN

r19:
PRINT "The lights begin to flicker over you as the door in the distance shuts"
PRINT "closed."
RETURN

r20:
PRINT "You stand before the room and a long away. Slowly the door opens and the"
PRINT "crying stops."
RETURN

r21:
PRINT "You enter the room and find that it's completely empty. Probably just another"
PRINT "storage room of sorts. Again Steven has been waiting for you."
IF gotphoto = 0 THEN: PRINT "A photo hangs on the wall."
IF gotphoto = 1 THEN: PRINT "You take the photo and glance at the memories that it brings."
RETURN

r22:
PRINT "With every step you take down the ever expanding hallway."
RETURN

r23:
PRINT "-No way out...you will never make it out alive...they forgot about you.-"
RETURN

r24:
PRINT "You feel a sickening realization that death is forever certain. But you"
PRINT "must go on, you must see another day."
RETURN

r25:
PRINT "Your footsteps echo through the hall. What lurks for you in the end is uncertain."
RETURN

r26:
PRINT "This is madness, it's thirty below out, and if the generators fail then it's"
PRINT "curtains for you. Steven fades in and out of existence before you."
RETURN

r27:
PRINT "The lights flicker on and off again. Something is with you and is watching"
PRINT "your every move. Or so it feels like it."
RETURN

r28:
PRINT "Another hallway leads towards another room of sorts. The howling wind begins"
PRINT "to grow louder and louder. You must be coming up to the exit."
RETURN

r29:
PRINT "The echo of laughter fills your mind and starts making you sick."
RETURN

r30:
PRINT "Another empty room with a lone desk, the bring white walls are hard on"
PRINT "your eye's. The smell of bleach fills the air."
PRINT ""
PRINT "Steven is sitting on the desk and looks over to the book with a grin on"
PRINT "his face."
IF gotbook = 0 THEN: PRINT "An worn out copy of an old mystery novel. From an author that is unknown."
IF gotbook = 1 THEN: PRINT "You place it in your pocket for safe keeping."
RETURN

r31:
PRINT "The temperature begin's dropping ever so fast as you are on the cusp"
PRINT "of entering the last hallway towards the exit."
RETURN

r32:
PRINT "You can see your breath and as the lights begin to dim. You can see a large"
PRINT "steel door seperating you from the arctic tundra."
RETURN

r33:
PRINT "You should really have brought your jacket with you. You notice that"
PRINT "the floor is slippery with a faint coat of ice. You can feel the cold"
PRINT "through your shoes. You wonder what the hell lurks behind that door."
RETURN

r34:
PRINT "The door seems to be covered in a thin layer of ice. The cold that is coming"
PRINT "off of it makes you think twice on trying to open it."
PRINT ""
PRINT "Steven is standing on the other side of the door. A grin is on his face."
RETURN

win:
COLOR 2, 0
CLS
PRINT "You take a deep breath as Steven watches you with a smile on his face. His eye's"
PRINT "turn a bright red and the smell of brimstone fills the air. You take a deep breath"
PRINT "and raise the pistol to your temple. In one final motion you end it all. Just as"
PRINT "your body hits the floor, the large steel door opens, and the recovery team finds"
PRINT "what was left of your body...pity."
PRINT
PRINT "Thank you for playing."
DO: LOOP UNTIL INKEY$ <> ""
END


FUNCTION GrabInput$
x = POS(0)
y = CSRLIN
maxwidth = _WIDTH - x
PCOPY 0, 1 'make a backup copy of the screen

DO
    k = _KEYHIT
    i$ = INKEY$
LOOP UNTIL k = 0 AND INKEY$ = "" 'clear the keyboard buffer

DO
    _LIMIT 30
    PCOPY 1, 0
    LOCATE y, x: PRINT Userinput$

    k = _KEYHIT
    SELECT CASE k
        CASE 8
            Userinput$ = LEFT$(Userinput$, LEN(Userinput$) - 1)
        CASE 65 TO 90, 97 TO 122, 32
            Userinput$ = UCASE$(Userinput$ + CHR$(k))
    END SELECT

    timerleft## = (DOOM - TIMER(0.001))
    minutes = timerleft## \ 60
    seconds = timerleft## - minutes * 60
    LOCATE 2, 32: PRINT USING " ###:##.###"; minutes, seconds
    IF timerleft## <= 0 THEN GOTO doomed
    _DISPLAY

LOOP UNTIL k = 13
GrabInput$ = Userinput$
_AUTODISPLAY
EXIT FUNCTION

doomed:
CLS
PRINT "You place the pistol down on the floor just by your feet and just as you"
PRINT "do this, the large steel door opens, and you are greeted by a small team."
PRINT "Dressed in warm clothing, they look upon you with a smile of relief, and"
PRINT "just as quicklt as they arrived you board their helicopter. And leave the"
PRINT "hellish realm that was that disturbed building. As you travel further away"
PRINT "from it, you can't help but to stare at it until it fades away. Leaving"
PRINT "you with the thought...Just who was Steven?"
_DISPLAY
END
END SUB